home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #3 / Amiga Plus CD - 1997 - No. 03.iso / pd / programmierung / alienbreed3d2_src / cheesesauce / abreed3.lha / CONTROLLOOP.s < prev    next >
Text File  |  1995-09-14  |  46KB  |  2,348 lines
  1. ; Main control loop.
  2. ; This is the very outer loop of the program.
  3.  
  4. ; What needs to be done and when?
  5.  
  6. ; Black screen start.
  7. ; Load title music
  8. ; Load title screen
  9. ; Fade up title screen
  10. ; Select options
  11. ; Play game.
  12.  
  13. ; Playing the game involves allocating screen and
  14. ; level memory, loading the level, loading the
  15. ; samples, loading the wall graphics, playing the
  16. ; level, deallocating the screen memory....
  17.  
  18. ; Control part should therefore:
  19.  
  20. ; 1. Load Title Music
  21. ; 2. Load title screen
  22. ; 3. Fade up title screen.
  23. ; 4. Add 'loading' message
  24. ; 5. Load samples and walls
  25. ; 6: LOOP START
  26. ; 7. Option select screens
  27. ; 8. Free music mem, allocate level mem.
  28. ; 9. Load level
  29. ;10. Play level with options selected
  30. ;11. Reload title music
  31. ;12. Reload title screen
  32. ;13. goto 6
  33.  
  34. INTROTUNEADDR: dc.l 0
  35. INTROTUNENAME: dc.b 'ab3:sounds/abreed3d.med',0
  36.  even
  37. TITLESCRNADDR: dc.l 0
  38. TITLESCRNNAME: dc.b 'AB3D1:includes/titlescrnraw',0
  39.  even
  40. TITLESCRNNAME2: dc.b 'AB3D2:includes/titlescrnraw',0
  41.  even
  42. OPTSPRADDR: dc.l 0
  43.  
  44.  
  45. KVALTOASC:
  46.         Dc.b    " `  "," 1  "," 2  "," 3  "
  47.         dc.b    " 4  "," 5  "," 6  "," 7  "
  48.         dc.b    " 8  "," 9  "
  49.         Dc.b    " 0  "," -  "," +  "," \  "
  50.         dc.b     '    ','    '," Q  "," W  "
  51.         dc.b    " E  "," R  "
  52.         Dc.b    " T  "," Y  "," U  "," I  "
  53.         dc.b    " O  "," P  "," [  "," ]  "
  54.         dc.b    '    ','KP1 '
  55.         Dc.b    'KP2 ','KP3 '," A  "," S  "
  56.         dc.b    " D  "," F  "," G  "," H  "
  57.         dc.b    " J  "," K  "
  58.         Dc.b    " L  "," ;  "," #  ",'    '
  59.         dc.b    '    ','KP4 ','KP5 ','KP6 '
  60.         dc.b    '    '," Z  "
  61.         Dc.b    " X  "," C  "," V  "," B  "
  62.         dc.b    " N  "," M  "," ,  "," .  "
  63.         dc.b     " /  ",'    '
  64.         Dc.b    '    ','KP7 ','KP8 ','KP9 '
  65.         dc.b    'SPC ','<-- ','TAB ','ENT '
  66.         dc.b    'RTN ','ESC '
  67.         Dc.b    'DEL ','    ','    ','    '
  68.         dc.b    'KP- ','    ','UCK ','DCK '
  69.         dc.b    'RCK ','LCK '
  70.         Dc.b    'FK1 ','FK2 ','FK3 ','FK4 '
  71.         dc.b    'FK5 ','FK6 ','FK7 ','FK8 '
  72.         dc.b    'FK9 ','FK0 '
  73.         Dc.b    'KP( ','KP) ','KP/ ','KP* '
  74.         dc.b    'KP+ '
  75.         dc.b    'HLP ','LSH ','RSH '
  76.         dc.b    'CPL ','CTL '
  77.         Dc.b    'LAL ','RAL ','LAM ','RAM '
  78.         dc.b    '    ','    ','    ','    '
  79.         dc.b    '    ','    '
  80.         Dc.b    '    ','    ','    ','    '
  81.         dc.b    '    ','    ','    ','    '
  82.         dc.b    '    ','    '
  83.  
  84.  even
  85.  
  86. FINISHEDLEVEL: dc.w 0
  87.  
  88.  
  89. START:
  90.  
  91.  move.b #'n',mors
  92.  
  93. ************************************88
  94. * TAKE OUT WHEN PLAYING MODULE AGAIN
  95. ********************************
  96.     PRSDF
  97.     PRSDE
  98. ************************************
  99.  
  100. ; move.l #PROTCALLENC,a0
  101. ; move.l #(ENDPROT-PROTCALLENC)/4-1,d1
  102. ; move.l #$75055345,d0
  103. ;codeitup:
  104. ; sub.l d0,(a0)+
  105. ; ror.l #1,d0
  106. ; dbra d1,codeitup
  107. ;
  108. ; rts
  109.  
  110.  PRSDA
  111.  
  112.  move.w #$7201,titleplanes
  113.  
  114.  move.l 4.w,a6
  115.  move.l #doslibname,a1
  116.  moveq #0,d0
  117.  jsr -552(a6)
  118.  move.l d0,doslib
  119.  PRSDS
  120.  jsr stuff
  121.  
  122.  jsr _InitLowLevel
  123.  
  124.  jsr CLEARTITLEPAL
  125.  
  126.  PRSDT
  127.  
  128.  move.w #$20,$dff1dc
  129.  move.l #titlecop,$dff080
  130.  PRSDV
  131.  move.w #$87c0,$dff000+dmacon
  132.  move.w #$8020,$dff000+dmacon
  133.  move.w $dff006,d0
  134.  add.w d0,RVAL2 
  135.  
  136.  bsr GETTITLEMEM
  137.  PRSDU
  138.  bsr CLROPTSCRN
  139.  
  140.  bsr SETUPTITLESCRN
  141.  
  142. ; jsr _InitPlayer
  143.  
  144. ; move.l #INTROTUNENAME,a0
  145. ; jsr _LoadModule
  146. ; move.l d0,INTROTUNEADDR
  147.  PRSDY
  148. ; move.l d0,a0
  149. ; jsr _InitModule
  150.  
  151. ; move.l INTROTUNEADDR,a0
  152. ; jsr _PlayModule
  153.  PRSDa
  154.  bsr LOADTITLESCRN
  155.  
  156.  move.w #0,FADEVAL
  157.  move.w #63,FADEAMOUNT
  158.  bsr FADEUPTITLE
  159.  PRSDB
  160.  jsr LOADWALLS
  161.  jsr LOADFLOOR
  162.  jsr LOADOBS
  163.  PRSDZ
  164.  
  165.  move.w #31,FADEAMOUNT
  166.  PRSDC
  167.  bsr FADEDOWNTITLE 
  168.  
  169.  IFEQ CD32VER 
  170.  bsr ASKFORDISK
  171.  ENDC
  172.  IFNE CD32VER
  173.  PRSDD
  174.  ENDC
  175.  
  176.  jsr LOAD_SFX
  177. ; jsr _StopPlayer
  178.  PRSDW
  179.  PRSDX
  180. ; jsr _RemPlayer
  181.  
  182.  
  183.  IFNE CD32VER
  184.  move.l doslib,a6
  185.  move.l #115,d1
  186.  jsr -198(a6)
  187.  ENDC
  188.  
  189. ; move.l #newblag,$80
  190. ; trap #0
  191. ; bra JUMPPASTIT
  192. ; rts
  193. ;
  194. ;newblag:
  195.  
  196.  CACHE_ON d2
  197.  CACHE_FREEZE_OFF d2
  198.  DATA_CACHE_CLEAR d2
  199.  DATA_CACHE_OFF d2
  200. ; bsr PROTSETUP
  201.  
  202. ; move.l INTROTUNEADDR,a0
  203. ; jsr _UnLoadModule
  204.  
  205.  IFEQ CD32VER
  206.  jsr KInt_Init
  207.  ENDC
  208.  bsr DEFAULTGAME
  209. ; rte
  210. ;
  211. ;JUMPPASTIT:
  212. ; 
  213. BACKTOMENU:
  214.  
  215.  cmp.b #'s',mors
  216.  beq.s BACKTOSLAVE
  217.  cmp.b #'m',mors
  218.  beq.s BACKTOMASTER
  219.  bsr READMAINMENU
  220.  bra DONEMENU
  221. BACKTOMASTER:
  222.  bsr MASTERMENU
  223.  bra DONEMENU
  224. BACKTOSLAVE:
  225.  bsr SLAVEMENU
  226. DONEMENU:
  227.  
  228.  bsr WAITREL
  229.  
  230.  IFEQ CD32VER
  231.  move.l OLDKINT,$68.w
  232.  ENDC
  233.  
  234.  bsr CLRSPRITES
  235.  
  236.  move.w #31,FADEAMOUNT
  237.  bsr FADEUPTITLE
  238.  move.w #63,FADEAMOUNT
  239.  bsr FADEDOWNTITLE
  240.  
  241.  move.w #$0201,titleplanes
  242.  
  243.  bsr RELEASETITLEMEM
  244.   
  245.  jsr LOADBOTPIC
  246.   
  247.  clr.b FINISHEDLEVEL
  248.  
  249.  move.w #0,PLR1_angpos
  250.  move.w #0,PLR2_angpos
  251.  move.b #0,PLR1_GunSelected
  252.  move.b #0,PLR2_GunSelected
  253.  
  254. **************************8
  255.  clr.b NASTY
  256. *************************** 
  257.  jsr PLAYTHEGAME
  258.  
  259.  bsr FREEBOTMEM 
  260.  
  261. ; bra QUITTT
  262.  
  263.  tst.b FINISHEDLEVEL
  264.  beq dontusestats
  265.  bsr CALCPASSWORD
  266. dontusestats:
  267.  bsr PASSLINETOGAME
  268.  bsr GETSTATS
  269.  
  270.  bsr GETTITLEMEM
  271.  bsr CLROPTSCRN
  272.  bsr SETUPTITLESCRN
  273.  
  274.  bsr LOADTITLESCRN2
  275.  move.w #$7201,titleplanes
  276.  
  277.  move.w #$20,$dff1dc
  278.  move.l #titlecop,$dff080
  279.  move.w #$87c0,$dff000+dmacon
  280.  move.w #$8020,$dff000+dmacon 
  281.  
  282.  move.w #0,FADEVAL
  283.  move.w #63,FADEAMOUNT
  284.  bsr FADEUPTITLE
  285.  
  286.  move.w #31,FADEAMOUNT
  287.  bsr FADEDOWNTITLE 
  288.  
  289.  jsr KInt_Init
  290.  bra BACKTOMENU
  291.  
  292. QUITTT:
  293.  
  294.  move.l LEVELDATA,d1
  295.  move.l d1,a1
  296.  move.l #120000,d0
  297.  move.l 4.w,a6
  298.  jsr -210(a6)
  299.  
  300.  move.l TEXTSCRN,d1
  301.  move.l d1,a1
  302.  move.l #10240*2,d0
  303.  move.l 4.w,a6
  304.  jsr -210(a6)
  305.  
  306.  jsr RELEASEWALLMEM
  307.  jsr RELEASESAMPMEM
  308.  jsr RELEASEFLOORMEM
  309.  jsr RELEASEOBJMEM
  310.   
  311.  rte
  312.  
  313. ; KEY OPTIONS:
  314. CONTROLBUFFER:
  315. turn_left_key:
  316.  dc.b $4f
  317. turn_right_key:
  318.  dc.b $4e
  319. forward_key:
  320.  dc.b $4c
  321. backward_key:
  322.  dc.b $4d
  323. fire_key:
  324.  dc.b $65
  325. operate_key:
  326.  dc.b $40
  327. run_key:
  328.  dc.b $61
  329. force_sidestep_key:
  330.  dc.b $67
  331. sidestep_left_key:
  332.  dc.b $39
  333. sidestep_right_key:
  334.  dc.b $3a
  335. duck_key:
  336.  dc.b $22
  337. look_behind_key:
  338.  dc.b $28
  339.  
  340. templeftkey: dc.b 0
  341. temprightkey: dc.b 0
  342. tempslkey: dc.b 0 
  343. tempsrkey: dc.b 0
  344.  
  345.  even 
  346.  
  347. GETSTATS:
  348. ; CHANGE PASSWORD INTO RAW DATA
  349.  
  350.  move.b PASSBUFFER,d0
  351.  and.w #$7f,d0
  352.  move.w d0,PLR1_energy
  353.  move.b PASSBUFFER+1,d0
  354.  btst #7,d0
  355.  sne PLR1_GunData+32+7
  356.  btst #6,d0
  357.  sne PLR1_GunData+32*2+7
  358.  btst #5,d0
  359.  sne PLR1_GunData+32*4+7
  360.  btst #4,d0
  361.  sne PLR1_GunData+32*7+7
  362.  and.w #%1111,d0
  363.  move.w d0,MAXLEVEL
  364.  move.b PASSBUFFER+2,d0
  365.  and.w #$7f,d0
  366.  lsl.w #3,d0
  367.  move.w d0,PLR1_GunData
  368.  move.b PASSBUFFER+3,d0
  369.  and.w #$7f,d0
  370.  lsl.w #3,d0
  371.  move.w d0,PLR1_GunData+32
  372.  move.b PASSBUFFER+4,d0
  373.  and.w #$7f,d0
  374.  lsl.w #3,d0
  375.  move.w d0,PLR1_GunData+32*2
  376.  move.b PASSBUFFER+5,d0
  377.  and.w #$7f,d0
  378.  lsl.w #3,d0
  379.  move.w d0,PLR1_GunData+32*4
  380.  move.b PASSBUFFER+6,d0
  381.  and.w #$7f,d0
  382.  lsl.w #3,d0
  383.  move.w d0,PLR1_GunData+32*7
  384.  rts
  385.  
  386.  
  387. SETPLAYERS:
  388.  
  389.  move.w PLOPT,d0
  390.  add.b #'a',d0
  391.  move.b d0,LEVA
  392.  move.b d0,LEVB
  393.  move.b d0,LEVC
  394.  
  395.  cmp.b #'s',mors
  396.  beq SLAVESETUP
  397.  cmp.b #'m',mors
  398.  beq MASTERSETUP
  399.  st NASTY
  400. onepla:
  401.  rts
  402.  
  403. NASTY: dc.w 0
  404.  
  405. MASTERSETUP:
  406.  bsr TWOPLAYER
  407.  clr.b NASTY
  408.  move.w PLOPT,d0
  409.  jsr SENDFIRST
  410.  rts
  411.  
  412. SLAVESETUP:
  413.  bsr TWOPLAYER
  414.  CLR.B NASTY
  415.  jsr RECFIRST
  416.  move.w d0,PLOPT
  417.  add.b #'a',d0
  418.  move.b d0,LEVA
  419.  move.b d0,LEVB
  420.  move.b d0,LEVC
  421.  rts
  422.      
  423. ********************************************************
  424.  
  425. ASKFORDISK:
  426.  PRSDD
  427.  move.w #3,OptScrn
  428.  bsr DRAWOPTSCRN
  429.  
  430. .wtrel:
  431.  btst #7,$bfe001
  432.  beq.s .wtrel
  433.  
  434. wtclick:
  435.  add.w #$235,RVAL1
  436.  btst #6,$bfe001
  437.  bne.s wtclick
  438.  
  439.  rts
  440.  
  441. CLRSPRITES: 
  442.  move.l #nullspr,d0
  443.  move.w d0,tsp0l
  444.  move.w d0,tsp1l
  445.  move.w d0,tsp2l
  446.  move.w d0,tsp3l
  447.  move.w d0,tsp4l
  448.  move.w d0,tsp5l
  449.  move.w d0,tsp6l
  450.  move.w d0,tsp7l
  451.  swap d0
  452.  move.w d0,tsp0h
  453.  move.w d0,tsp1h
  454.  move.w d0,tsp2h
  455.  move.w d0,tsp3h
  456.  move.w d0,tsp4h
  457.  move.w d0,tsp5h
  458.  move.w d0,tsp6h
  459.  move.w d0,tsp7h 
  460.  rts
  461.  
  462. ********************************************************
  463.  
  464. READMAINMENU:
  465.  
  466.  move.b #'n',mors
  467.  
  468.  move.w MAXLEVEL,d0
  469.  
  470.  move.l #CURRENTLEVELLINE,a1
  471.  muls #40,d0
  472.  move.l #LEVEL_OPTS,a0
  473.  add.l d0,a0
  474.  bsr PUTINLINE
  475.  
  476. ; Stay here until 'play game' is selected.
  477.  
  478.  move.w #0,OptScrn
  479.  bsr DRAWOPTSCRN
  480.  move.w #1,OPTNUM
  481.  
  482.  bsr HIGHLIGHT
  483.  
  484.  bsr WAITREL
  485. .rdlop:
  486.  bsr CHECKMENU
  487.  tst.w d0
  488.  blt.s .rdlop
  489.  
  490.  bne .noopt
  491.  
  492.  bra MASTERMENU
  493.  
  494. .noopt:
  495.  
  496.  cmp.w #1,d0
  497.  beq playgame
  498.  
  499.  cmp.w #2,d0
  500.  bne .nocontrol
  501.  
  502.  bsr CHANGECONTROLS
  503.  
  504.  move.w #0,OptScrn
  505.  bsr DRAWOPTSCRN
  506.  move.w #0,OPTNUM
  507.  
  508.  bsr HIGHLIGHT
  509.  
  510.  bsr WAITREL
  511.  bra .rdlop
  512.  
  513. .nocontrol:
  514.  
  515.  cmp.w #3,d0
  516.  bne .nocred
  517.  bsr SHOWCREDITS
  518.  move.w #0,OptScrn
  519.  bsr DRAWOPTSCRN
  520.  move.w #1,OPTNUM
  521.  
  522.  bsr HIGHLIGHT
  523.  
  524.  bsr WAITREL
  525.  bra .rdlop
  526.  
  527.  
  528. .nocred:
  529.  
  530.  cmp.w #4,d0
  531.  bne playgame
  532.  bsr WAITREL
  533.  
  534.  move.l #PASSWORDLINE+12,a0
  535.  moveq #15,d2
  536. .clrline:
  537.  move.b #32,(a0)+
  538.  dbra d2,.clrline 
  539.  move.w #0,OptScrn
  540.  bsr DRAWOPTSCRN
  541.  
  542.  IFEQ CD32VER
  543.  clr.b lastpressed
  544.  move.l #PASSWORDLINE+12,a0
  545.  move.w #0,d1
  546. .ENTERPASS:
  547.  tst.b lastpressed
  548.  beq .ENTERPASS
  549.  move.b lastpressed,d2
  550.  move.b #0,lastpressed
  551.  move.l #KVALTOASC,a1
  552.  
  553.  cmp.l #'<-- ',(a1,d2.w*4)
  554.  bne .nodel
  555.  
  556.  tst.b d1
  557.  beq .nodel
  558.  
  559.  subq #1,d1
  560.  move.b #32,-(a0)
  561.  movem.l d0-d7/a0-a6,-(a7)
  562.  bsr JUSTDRAWIT
  563.  movem.l (a7)+,d0-d7/a0-a6
  564.  bra .ENTERPASS
  565.  
  566. .nodel:
  567.  
  568.  cmp.l #'RTN ',(a1,d2.w*4)
  569.  beq .FORGETIT
  570.  cmp.l #'ESC ',(a1,d2.w*4)
  571.  beq .FORGETIT
  572.  move.b 1(a1,d2.w*4),d2
  573.  cmp.b #65,d2
  574.  blt .ENTERPASS
  575.  cmp.b #'Z',d2
  576.  bgt .ENTERPASS
  577.  move.b d2,(a0)+
  578.  move.w #0,OptScrn
  579.  movem.l d0-d7/a0-a6,-(a7)
  580.  bsr JUSTDRAWIT
  581.  movem.l (a7)+,d0-d7/a0-a6
  582.  add.w #1,d1
  583.  cmp.w #16,d1
  584.  blt .ENTERPASS
  585.  
  586.  ENDC
  587.  IFNE CD32VER
  588.  move.l #PASSWORDLINE+12,a0
  589.  move.w #15,d0
  590. .ENTERPASS:
  591.  bsr GETACHAR
  592.  dbra d0,.ENTERPASS
  593.  ENDC
  594.  
  595.  bsr PASSLINETOGAME
  596.  tst.w d0
  597.  bne .FORGETIT
  598.  
  599.  bsr GETSTATS
  600.  move.w MAXLEVEL,d0
  601.  move.l #CURRENTLEVELLINE,a1
  602.  muls #40,d0
  603.  move.l #LEVEL_OPTS,a0
  604.  add.l d0,a0
  605.  bsr PUTINLINE
  606.  
  607. .FORGETIT:
  608.  bsr WAITREL
  609.  bsr CALCPASSWORD
  610.  
  611.  move.w #0,OptScrn
  612.  bsr DRAWOPTSCRN
  613.  
  614.  move.w #0,OPTNUM
  615.  
  616.  bsr HIGHLIGHT
  617.  
  618.  bra .rdlop 
  619.  
  620. playgame:
  621.  
  622.  move.w MAXLEVEL,PLOPT
  623.  rts
  624.  
  625. LEVELSELECTED:
  626.  dc.w 0
  627.  
  628.  IFNE CD32VER
  629. GETACHAR:
  630.  moveq #0,d7
  631.  move.b #'A',(a0)
  632.  movem.l d0-d7/a0-a6,-(a7)
  633.  jsr JUSTDRAWIT
  634.  movem.l (a7)+,d0-d7/a0-a6
  635.  
  636. .wtnum:
  637.  btst #1,$dff00c
  638.  sne d1
  639.  btst #1,$dff00d
  640.  sne d2
  641.  btst #0,$dff00c
  642.  sne d3
  643.  btst #0,$dff00d
  644.  sne d4
  645.  
  646.  eor.b d1,d3
  647.  eor.b d2,d4
  648.  
  649.  tst.b d1
  650.  beq.s .NODELETE
  651.  cmp.w #15,d0
  652.  beq.s .NODELETE
  653.  move.b #32,(a0)
  654.  subq #1,a0
  655.  addq #1,d0
  656.  move.b (a0),d7
  657.  sub.b #'A',d7
  658.  movem.l d0-d7/a0-a6,-(a7)
  659.  jsr JUSTDRAWIT
  660.  movem.l (a7)+,d0-d7/a0-a6
  661.  jsr WAITFORNOPRESS
  662.  bra .wtnum
  663. .NODELETE
  664.  
  665.  tst.b d4
  666.  bne.s .PREVNUM
  667.  tst.b d3
  668.  bne.s .NEXTNUM
  669.  btst #7,$bfe001
  670.  bne.s .wtnum
  671.  addq #1,a0
  672.  jsr WAITFORNOPRESS
  673.  rts
  674.  
  675. .PREVNUM:
  676.  subq #1,d7
  677.  bge.s .nonegg
  678.  moveq #15,d7
  679. .nonegg:
  680.  move.b d7,d1
  681.  add.b #'A',d1
  682.  move.b d1,(a0)
  683.  movem.l d0-d7/a0-a6,-(a7)
  684.  jsr JUSTDRAWIT
  685.  movem.l (a7)+,d0-d7/a0-a6
  686.  
  687.  jsr WAITFORNOPRESS
  688.  
  689.  bra .wtnum
  690.  
  691. .NEXTNUM:
  692.  addq #1,d7
  693.  cmp.w #15,d7
  694.  ble.s .nobigg
  695.  moveq #0,d7
  696. .nobigg:
  697.  move.b d7,d1
  698.  add.b #'A',d1
  699.  move.b d1,(a0)
  700.  movem.l d0-d7/a0-a6,-(a7)
  701.  jsr JUSTDRAWIT
  702.  movem.l (a7)+,d0-d7/a0-a6
  703.  jsr WAITFORNOPRESS
  704.  bra .wtnum
  705.  rts
  706.  ENDC
  707.  
  708.  
  709. MASTERMENU:
  710.  
  711.  move.b #'m',mors
  712.  
  713.  move.w #0,LEVELSELECTED
  714.  
  715.  move.w #0,d0 
  716.  move.l #CURRENTLEVELLINEM,a1
  717.  muls #40,d0
  718.  move.l #LEVEL_OPTS,a0
  719.  add.l d0,a0
  720.  bsr PUTINLINE
  721.  
  722. ; Stay here until 'play game' is selected.
  723.  
  724.  move.w #4,OptScrn
  725.  bsr DRAWOPTSCRN
  726.  move.w #1,OPTNUM
  727.  
  728.  bsr HIGHLIGHT
  729.  
  730.  bsr WAITREL
  731. .rdlop:
  732.  bsr CHECKMENU
  733.  tst.w d0
  734.  blt.s .rdlop
  735.  bsr WAITREL
  736.  
  737.  cmp.w #1,d0
  738.  bne.s .nonextlev
  739.  
  740.  move.w LEVELSELECTED,d0
  741.  add.w #1,d0
  742.  cmp.w MAXLEVEL,d0
  743.  blt .nowrap
  744.  moveq #0,d0
  745. .nowrap:
  746.  move.w d0,LEVELSELECTED
  747.  move.l #CURRENTLEVELLINEM,a1
  748.  muls #40,d0
  749.  move.l #LEVEL_OPTS,a0
  750.  add.l d0,a0
  751.  bsr PUTINLINE
  752.  bsr JUSTDRAWIT
  753.  bra .rdlop
  754.  
  755. .nonextlev:
  756.  cmp.w #2,d0
  757.  beq .playgame
  758.  
  759.  cmp.w #0,d0
  760.  bne .noopt
  761.  
  762.  bra SLAVEMENU
  763.  
  764. .noopt:
  765.  
  766.  cmp.w #3,d0
  767.  bne .nocontrol
  768.  
  769.  bsr CHANGECONTROLS
  770.  
  771.  move.w #4,OptScrn
  772.  bsr DRAWOPTSCRN
  773.  move.w #0,OPTNUM
  774.  
  775.  bsr HIGHLIGHT
  776.  
  777.  bsr WAITREL
  778.  bra .rdlop
  779.  
  780. .nocontrol:
  781.  
  782. .playgame
  783.  
  784.  move.w LEVELSELECTED,PLOPT
  785.  rts
  786.  
  787. SLAVEMENU:
  788.  
  789.  move.b #'s',mors
  790.  
  791. ; Stay here until 'play game' is selected.
  792.  
  793.  move.w #5,OptScrn
  794.  bsr DRAWOPTSCRN
  795.  move.w #1,OPTNUM
  796.  
  797.  bsr HIGHLIGHT
  798.  
  799.  bsr WAITREL
  800. .rdlop:
  801.  bsr CHECKMENU
  802.  tst.w d0
  803.  blt.s .rdlop
  804.  bsr WAITREL
  805.  
  806.  cmp.w #1,d0
  807.  beq .playgame
  808.  
  809.  cmp.w #0,d0
  810.  bne .noopt
  811.  
  812.  bra READMAINMENU
  813.  
  814. .noopt:
  815.  
  816.  cmp.w #2,d0
  817.  bne .nocontrol
  818.  
  819.  bsr CHANGECONTROLS
  820.  
  821.  move.w #0,OptScrn
  822.  bsr DRAWOPTSCRN
  823.  move.w #0,OPTNUM
  824.  
  825.  bsr HIGHLIGHT
  826.  
  827.  bsr WAITREL
  828.  bra .rdlop
  829.  
  830. .nocontrol:
  831. .playgame:
  832.  
  833.  rts
  834.  
  835. TWOPLAYER:
  836.  move.w #0,OldEnergy
  837.  move.w #127,Energy
  838.  jsr EnergyBar
  839.  
  840.  move.w #63,OldAmmo
  841.  move.w #0,Ammo
  842.  jsr AmmoBar
  843.  move.w #0,OldAmmo
  844.  
  845.  move.w #127,PLR1_energy
  846.  move.w #127,PLR2_energy 
  847.  move.w #160,PLR1_GunData    ; 10 shots pistol
  848.  st PLR1_GunData+7
  849.  
  850.  st.b PLR1_GunData+32+7
  851.  move.w #80*4,PLR1_GunData+32
  852.  
  853.  st.b PLR1_GunData+64+7
  854.  move.w #80*4,PLR1_GunData+64
  855.  
  856.  st.b PLR1_GunData+32*3+7
  857.  move.w #80*4,PLR1_GunData+32*3
  858.  
  859.  st.b PLR1_GunData+32*4+7
  860.  move.w #80*4,PLR1_GunData+32*4
  861.  
  862.  st.b PLR1_GunData+32*7+7
  863.  move.w #80*4,PLR1_GunData+32*7
  864.  
  865.  move.b #0,PLR1_GunSelected
  866.  
  867.  move.w #160,PLR2_GunData    ; 10 shots pistol
  868.  st PLR2_GunData+7
  869.  st.b PLR2_GunData+32+7
  870.  move.w #80*4,PLR2_GunData+32
  871.  
  872.  st.b PLR2_GunData+64+7
  873.  move.w #80*4,PLR2_GunData+64
  874.  
  875.  st.b PLR2_GunData+32*3+7
  876.  move.w #80*4,PLR2_GunData+32*3
  877.  
  878.  st.b PLR2_GunData+32*4+7
  879.  move.w #80*4,PLR2_GunData+32*4
  880.  
  881.  st.b PLR2_GunData+32*7+7
  882.  move.w #80*4,PLR2_GunData+32*7
  883.  move.b #0,PLR2_GunSelected
  884.  rts
  885.  
  886. newdum:
  887.  rts
  888.  
  889. DEFAULTGAME:
  890.  move.w #0,MAXLEVEL
  891.  
  892.  move.w #0,OldEnergy
  893.  move.w #127,Energy
  894.  jsr EnergyBar
  895.  
  896.  move.w #63,OldAmmo
  897.  move.w #0,Ammo
  898.  jsr AmmoBar
  899.  move.w #0,OldAmmo
  900.  
  901.  move.w #127,PLR1_energy
  902.  move.w #127,PLR2_energy 
  903.  move.w #160,PLR1_GunData    ; 10 shots pistol
  904.  st PLR1_GunData+7
  905.  clr.b PLR1_GunData+32+7
  906.  clr.w PLR1_GunData+32
  907.  clr.b PLR1_GunData+64+7
  908.  clr.w PLR1_GunData+64
  909.  clr.b PLR1_GunData+32*3+7
  910.  clr.w PLR1_GunData+32*3
  911.  clr.b PLR1_GunData+32*4+7
  912.  clr.w PLR1_GunData+32*4
  913.  clr.b PLR1_GunData+32*7+7
  914.  clr.w PLR1_GunData+32*7
  915.  move.b #0,PLR1_GunSelected
  916.  
  917. ; move.l #RealTable-2000,a3
  918. ; move.l #PROTCALC-5000,a1
  919. ; move.l #ASKFORPROT-10000,a2
  920. ; move.l #PROTCALLENC-800,a4
  921. ; adda.w #800,a4
  922. ; jsr (a4)
  923.  
  924. ************************************************
  925. * TEMPORARY MEASURE: REMOVE BEFORE RELEASE *****
  926. ************************************************
  927.  
  928. ; tst.w protA
  929. ; bne.s .noreset
  930. ; move.l #0,a7
  931. ;.noreset:
  932.  
  933. ************************************************
  934.  
  935.  move.w #160,PLR2_GunData    ; 10 shots pistol
  936.  st PLR2_GunData+7
  937.  clr.b PLR2_GunData+32+7
  938.  clr.w PLR2_GunData+32
  939.  clr.b PLR2_GunData+64+7
  940.  clr.w PLR2_GunData+64
  941.  clr.b PLR2_GunData+32*3+7
  942.  clr.w PLR2_GunData+32*3
  943.  clr.b PLR2_GunData+32*4+7
  944.  clr.w PLR2_GunData+32*4
  945.  clr.b PLR2_GunData+32*7+7
  946.  clr.w PLR2_GunData+32*7
  947.  move.b #0,PLR2_GunSelected
  948.  
  949.  bsr CALCPASSWORD
  950.  
  951.  rts
  952.  
  953. CHKPROT: dc.w 0
  954.  
  955. GETPARITY:
  956.  move.w #6,d3
  957. .calcparity:
  958.  btst d3,d0
  959.  beq.s .nochange
  960.  bchg #7,d0
  961. .nochange:
  962.  dbra d3,.calcparity
  963.  rts
  964.  
  965. CHECKPARITY:
  966.  move.w #6,d3
  967.  move.b #$0,d2
  968. .calcparity:
  969.  btst d3,d0
  970.  beq.s .nochange
  971.  bchg #7,d2
  972. .nochange:
  973.  dbra d3,.calcparity
  974.  move.b d0,d1
  975.  and.b #$80,d1
  976.  eor.b d1,d2
  977.  sne.s d5
  978.  rts
  979.  
  980. CALCPASSWORD:
  981.  move.b PLR1_energy+1,d0
  982.  bsr GETPARITY
  983.  move.b d0,PASSBUFFER
  984.  moveq #0,d0
  985.  tst.b PLR1_GunData+32+7
  986.  sne d0
  987.  lsl.w #1,d0
  988.  tst.b PLR1_GunData+64+7
  989.  sne d0
  990.  lsl.w #1,d0
  991.  tst.b PLR1_GunData+32*4+7
  992.  sne d0
  993.  lsl.w #1,d0
  994.  tst.b PLR1_GunData+32*7+7
  995.  sne d0
  996.  lsr.w #3,d0
  997.  and.b #%11110000,d0
  998.  or.b MAXLEVEL+1,d0
  999.  move.b d0,PASSBUFFER+1
  1000.  eor.b #%10110101,d0
  1001.  neg.b d0
  1002.  add.b #50,d0
  1003.  move.b d0,PASSBUFFER+7
  1004.  
  1005.  move.w PLR1_GunData,d0
  1006.  lsr.w #3,d0
  1007.  bsr GETPARITY
  1008.  move.b d0,PASSBUFFER+2
  1009.  move.w PLR1_GunData+32,d0
  1010.  lsr.w #3,d0
  1011.  bsr GETPARITY
  1012.  move.b d0,PASSBUFFER+3
  1013.  move.w PLR1_GunData+32*2,d0
  1014.  lsr.w #3,d0
  1015.  bsr GETPARITY
  1016.  move.b d0,PASSBUFFER+4
  1017.  move.w PLR1_GunData+32*4,d0
  1018.  lsr.w #3,d0
  1019.  bsr GETPARITY
  1020.  move.b d0,PASSBUFFER+5
  1021.  move.w PLR1_GunData+32*7,d0
  1022.  lsr.w #3,d0
  1023.  bsr GETPARITY
  1024.  move.b d0,PASSBUFFER+6
  1025.  
  1026.  move.w #3,d0
  1027.  move.l #PASSBUFFER,a0
  1028.  move.l #PASSBUFFER+8,a1
  1029.  move.l #PASS,a2
  1030.  moveq #0,d4
  1031. mixemup:
  1032.  move.b (a0)+,d1
  1033.  move.b -(a1),d2
  1034.  not.b d2
  1035.  moveq #0,d3
  1036.  lsr.b #1,d1
  1037.  addx.w d3,d3
  1038.  lsr.b #1,d2
  1039.  addx.w d3,d3
  1040.  lsr.b #1,d1
  1041.  addx.w d3,d3
  1042.  lsr.b #1,d2
  1043.  addx.w d3,d3
  1044.  lsr.b #1,d1
  1045.  addx.w d3,d3
  1046.  lsr.b #1,d2
  1047.  addx.w d3,d3
  1048.  lsr.b #1,d1
  1049.  addx.w d3,d3
  1050.  lsr.b #1,d2
  1051.  addx.w d3,d3
  1052.  lsr.b #1,d1
  1053.  addx.w d3,d3
  1054.  lsr.b #1,d2
  1055.  addx.w d3,d3
  1056.  lsr.b #1,d1
  1057.  addx.w d3,d3
  1058.  lsr.b #1,d2
  1059.  addx.w d3,d3
  1060.  lsr.b #1,d1
  1061.  addx.w d3,d3
  1062.  lsr.b #1,d2
  1063.  addx.w d3,d3
  1064.  lsr.b #1,d1
  1065.  addx.w d3,d3
  1066.  lsr.b #1,d2
  1067.  addx.w d3,d3
  1068.  move.w d3,(a2)+
  1069.  
  1070.  dbra d0,mixemup
  1071.  
  1072.  move.l #PASSWORDLINE+12,a0
  1073.  move.l #PASS,a1
  1074.  move.w #7,d0
  1075. putinpassline:
  1076.  move.b (a1),d1
  1077.  and.b #%1111,d1
  1078.  add.b #65,d1
  1079.  move.b d1,(a0)+
  1080.  move.b (a1)+,d1
  1081.  lsr.b #4,d1
  1082.  and.b #%1111,d1
  1083.  add.b #65,d1
  1084.  move.b d1,(a0)+
  1085.  dbra d0,putinpassline
  1086.  rts
  1087.  
  1088. PASSLINETOGAME:
  1089.  move.l #PASSWORDLINE+12,a0
  1090.  move.l #PASS,a1
  1091.  move.w #7,d0
  1092. getbuff:
  1093.  move.b (a0)+,d1
  1094.  move.b (a0)+,d2
  1095.  sub.b #65,d1
  1096.  sub.b #65,d2
  1097.  and.b #%1111,d1
  1098.  and.b #%1111,d2
  1099.  lsl.b #4,d2
  1100.  or.b d2,d1
  1101.  move.b d1,(a1)+
  1102.  dbra d0,getbuff
  1103.  
  1104.  move.l #PASS,a0
  1105.  move.l #PASSBUFFER,a1
  1106.  move.l #PASSBUFFER+8,a2
  1107.  move.w #3,d0
  1108.  moveq #0,d4
  1109. unmix:
  1110.  move.w (a0)+,d1
  1111.  moveq #0,d2
  1112.  moveq #0,d3
  1113.  lsr.w #1,d1
  1114.  addx.w d3,d3
  1115.  lsr.w #1,d1
  1116.  addx.w d2,d2
  1117.  lsr.w #1,d1
  1118.  addx.w d3,d3
  1119.  lsr.w #1,d1
  1120.  addx.w d2,d2
  1121.  lsr.w #1,d1
  1122.  addx.w d3,d3
  1123.  lsr.w #1,d1
  1124.  addx.w d2,d2
  1125.  lsr.w #1,d1
  1126.  addx.w d3,d3
  1127.  lsr.w #1,d1
  1128.  addx.w d2,d2
  1129.  lsr.w #1,d1
  1130.  addx.w d3,d3
  1131.  lsr.w #1,d1
  1132.  addx.w d2,d2
  1133.  lsr.w #1,d1
  1134.  addx.w d3,d3
  1135.  lsr.w #1,d1
  1136.  addx.w d2,d2
  1137.  lsr.w #1,d1
  1138.  addx.w d3,d3
  1139.  lsr.w #1,d1
  1140.  addx.w d2,d2
  1141.  lsr.w #1,d1
  1142.  addx.w d3,d3
  1143.  lsr.w #1,d1
  1144.  addx.w d2,d2
  1145.  not.b d3
  1146.  move.b d3,-(a2)
  1147.  move.b d2,(a1)+
  1148.  dbra d0,unmix
  1149.  
  1150.  move.b PASSBUFFER,d0
  1151.  bsr CHECKPARITY
  1152.  tst.b d5
  1153.  bne illega
  1154.  move.b PASSBUFFER+2,d0
  1155.  bsr CHECKPARITY
  1156.  tst.b d5
  1157.  bne illega
  1158.  move.b PASSBUFFER+3,d0
  1159.  bsr CHECKPARITY
  1160.  tst.b d5
  1161.  bne illega
  1162.  move.b PASSBUFFER+4,d0
  1163.  bsr CHECKPARITY
  1164.  tst.b d5
  1165.  bne illega
  1166.  move.b PASSBUFFER+5,d0
  1167.  bsr CHECKPARITY
  1168.  tst.b d5
  1169.  bne illega
  1170.  move.b PASSBUFFER+6,d0
  1171.  bsr CHECKPARITY
  1172.  tst.b d5
  1173.  bne illega
  1174.  
  1175.  move.b PASSBUFFER+1,d0
  1176.  eor.b #%10110101,d0
  1177.  neg.b d0
  1178.  add.b #50,d0
  1179.  cmp.b PASSBUFFER+7,d0
  1180.  bne illega
  1181.  
  1182.  move.w #0,d0
  1183.  rts
  1184.  
  1185. illega:
  1186.  
  1187.  move.w #-1,d0
  1188.  
  1189.  rts
  1190.  
  1191. PASSBUFFER:
  1192.  ds.b 8
  1193.  
  1194. CHECKBUFFER: ds.b 8
  1195.  
  1196. PASS:
  1197.  ds.b 16
  1198.  
  1199. **************************************************
  1200.  
  1201. CHANGECONTROLS:
  1202.  
  1203.  move.w #6,OptScrn
  1204.  bsr DRAWOPTSCRN
  1205.  move.w #0,OPTNUM
  1206.  bsr HIGHLIGHT
  1207.  bsr WAITREL
  1208.  
  1209. .rdlop:
  1210.  bsr CHECKMENU
  1211.  tst.w d0
  1212.  blt.s .rdlop
  1213.  
  1214.  cmp.w #12,d0
  1215.  beq .backtomain
  1216.  
  1217.  move.l #KEY_LINES,a0
  1218.  move.w d0,d1
  1219.  muls #40,d1
  1220.  add.l d1,a0
  1221.  add.w #32,a0
  1222.  move.l #$20202020,(a0)
  1223.  movem.l d0/a0,-(a7)
  1224.  bsr JUSTDRAWIT
  1225.  movem.l (a7)+,d0/a0 
  1226.  
  1227.  clr.b lastpressed
  1228.  
  1229. .wtkey
  1230.  tst.b lastpressed
  1231.  beq .wtkey
  1232.  
  1233.  move.l #CONTROLBUFFER,a1
  1234.  moveq #0,d1
  1235.  move.b lastpressed,d1
  1236.  move.b d1,(a1,d0.w)
  1237.  move.l #KVALTOASC,a1
  1238.  move.l (a1,d1.w*4),(a0)
  1239.  bsr JUSTDRAWIT
  1240.  bsr WAITREL
  1241.  bra .rdlop
  1242.  
  1243. .backtomain:
  1244.  rts
  1245.  
  1246. **************************************************
  1247.  
  1248.  
  1249. MAXLEVEL: dc.w 0
  1250.  
  1251. SHOWCREDITS:
  1252.  move.w #2,OptScrn
  1253.  bsr DRAWOPTSCRN
  1254.  move.w #0,OPTNUM
  1255.  bsr HIGHLIGHT
  1256.  
  1257.  bsr WAITREL
  1258.  
  1259. .rdlop:
  1260.  bsr CHECKMENU
  1261.  tst.w d0
  1262.  blt.s .rdlop
  1263.  
  1264.  bra READMAINMENU
  1265.  
  1266. HELDDOWN:
  1267.  dc.w 0
  1268.  
  1269. WAITREL:
  1270.  
  1271.  movem.l d0/d1/d2/d3,-(a7)
  1272.  
  1273.  move.l #KeyMap,a5
  1274. WAITREL2:
  1275.  btst #7,$bfe001
  1276.  beq.s WAITREL2
  1277.  tst.b $40(a5)
  1278.  bne.s WAITREL2
  1279.  tst.b $44(a5)
  1280.  bne.s WAITREL2
  1281.  tst.b $4c(a5)
  1282.  bne.s WAITREL2
  1283.  tst.b $4d(a5)
  1284.  bne.s WAITREL2
  1285.  
  1286.  btst #1,$dff00c
  1287.  sne d0
  1288.  btst #1,$dff00d
  1289.  sne d1
  1290.  btst #0,$dff00c
  1291.  sne d2
  1292.  btst #0,$dff00d
  1293.  sne d3
  1294.  
  1295.  eor.b d0,d2
  1296.  eor.b d1,d3
  1297.  tst.b d2
  1298.  bne.s WAITREL2
  1299.  tst.b d3
  1300.  bne.s WAITREL2
  1301.  
  1302.  
  1303.  movem.l (a7)+,d0/d1/d2/d3
  1304.  rts
  1305.  
  1306. PUTINLINE:
  1307.  moveq #39,d0
  1308. pill
  1309.  move.b (a0)+,(a1)+
  1310.  dbra d0,pill
  1311.  rts
  1312.  
  1313. CHECKMENU:
  1314.  btst #1,$dff00c
  1315.  sne d0
  1316.  btst #1,$dff00d
  1317.  sne d1
  1318.  btst #0,$dff00c
  1319.  sne d2
  1320.  btst #0,$dff00d
  1321.  sne d3
  1322.  
  1323.  eor.b d0,d2
  1324.  eor.b d1,d3
  1325.  
  1326.  move.l #KeyMap,a5
  1327.  move.b $4c(a5),d0
  1328.  move.b $4d(a5),d1
  1329.  or.b d1,d3
  1330.  or.b d0,d2
  1331.  
  1332.  move.w OptScrn,d0
  1333.  move.l #MENUDATA,a0
  1334.  move.l 4(a0,d0.w*8),a0    ; opt data
  1335.  
  1336.  move.w OPTNUM,d0
  1337.  
  1338.  tst.b d2
  1339.  beq.s NOPREV
  1340.  
  1341.  
  1342.  sub.w #1,d0
  1343.  bge.s NOPREV
  1344.  
  1345.  move.w #0,d0 
  1346.  
  1347. NOPREV:
  1348.  
  1349.  tst.b d3
  1350.  beq.s NONEXT
  1351.  
  1352.  bsr WAITREL
  1353.  
  1354.  add.w #1,d0
  1355.  tst.w (a0,d0.w*8)
  1356.  bge.s NONEXT
  1357.  
  1358.  subq #1,d0
  1359.  
  1360. NONEXT:
  1361.  
  1362.  cmp.w OPTNUM,d0
  1363.  beq.s .nochange
  1364.  
  1365.  bsr HIGHLIGHT
  1366.  move.w d0,OPTNUM
  1367.  bsr HIGHLIGHT
  1368.  bsr WAITREL
  1369.  
  1370. .nochange:
  1371.  
  1372.  move.w #-1,d0
  1373.  
  1374.  btst #7,$bfe001
  1375.  beq.s select
  1376.  move.b $40(a5),d1
  1377.  or.b $44(a5),d1
  1378.  tst.b d1
  1379.  beq.s noselect
  1380.  
  1381. select:
  1382.  bsr WAITREL
  1383.  move.w OPTNUM,d0
  1384. noselect:
  1385.  
  1386.  rts
  1387.  
  1388. HIGHLIGHT:
  1389.  
  1390.  SAVEREGS
  1391.  
  1392.  move.w OptScrn,d0
  1393.  move.l #MENUDATA,a0
  1394.  move.l 4(a0,d0.w*8),a0
  1395.  move.w OPTNUM,d0
  1396.  lea (a0,d0.w*8),a0
  1397.  move.w (a0)+,d0    ;left
  1398.  move.w (a0)+,d1    ;top
  1399.  move.w (a0)+,d2    ;width
  1400.  
  1401.  muls #16*8,d1
  1402.  move.l OPTSPRADDR,a1
  1403.  add.w d1,a1
  1404.  add.w #8+16,a1
  1405.  move.l #SCRTOSPR2,a5
  1406.  adda.w d0,a5
  1407.  adda.w d0,a5
  1408.  
  1409. NOTLOP:
  1410.  
  1411.  move.w (a5)+,d3
  1412.  lea (a1,d3.w),a2
  1413.  not.b (a2)
  1414.  not.b 16(a2)
  1415.  not.b 32(a2)
  1416.  not.b 48(a2)
  1417.  not.b 64(a2)
  1418.  not.b 80(a2)
  1419.  not.b 96(a2)
  1420.  not.b 112(a2)
  1421.  not.b 128(a2)
  1422.  subq #1,d2
  1423.  bgt.s NOTLOP
  1424.  
  1425.  GETREGS
  1426.  rts
  1427.  
  1428. SCRTOSPR2:
  1429. val SET 0
  1430.  REPT 6
  1431.  dc.w val+0
  1432.  dc.w val+1
  1433.  dc.w val+2
  1434.  dc.w val+3
  1435.  dc.w val+4
  1436.  dc.w val+5
  1437.  dc.w val+6
  1438.  dc.w val+7
  1439. val SET val+258*16
  1440.  ENDR
  1441.  
  1442. CLROPTSCRN:
  1443.  
  1444.  move.l #$2cdfea,d0
  1445.  move.w (a4,d0.l),d0
  1446.  add.w d0,RVAL2
  1447.  
  1448.  move.l OPTSPRADDR,a0
  1449.  lea 16(a0),a1
  1450.  lea 16+(258*16)(a0),a2
  1451.  lea 16+(258*16*2)(a0),a3
  1452.  lea 16+(258*16*3)(a0),a4
  1453.  lea 258*16(a4),a0
  1454.  
  1455.  move.w #256,d0
  1456.  moveq #0,d1
  1457. CLRLOP:
  1458.  move.l d1,(a0)+
  1459.  move.l d1,(a0)+
  1460.  move.l d1,(a0)+
  1461.  move.l d1,(a0)+
  1462.  move.l d1,(a1)+
  1463.  move.l d1,(a1)+
  1464.  move.l d1,(a1)+
  1465.  move.l d1,(a1)+
  1466.  move.l d1,(a2)+
  1467.  move.l d1,(a2)+
  1468.  move.l d1,(a2)+
  1469.  move.l d1,(a2)+
  1470.  move.l d1,(a3)+
  1471.  move.l d1,(a3)+
  1472.  move.l d1,(a3)+
  1473.  move.l d1,(a3)+
  1474.  move.l d1,(a4)+
  1475.  move.l d1,(a4)+
  1476.  move.l d1,(a4)+
  1477.  move.l d1,(a4)+
  1478.  dbra d0,CLRLOP
  1479.  
  1480.  move.l OPTSPRADDR,a0
  1481.  move.w #44*256+64,(a0)
  1482.  move.w #44*256+2,8(a0)
  1483.  add.l #258*16,a0
  1484.  
  1485.  move.w #44*256+96,(a0)
  1486.  move.w #44*256+2,8(a0)
  1487.  add.l #258*16,a0
  1488.  
  1489.  move.w #44*256+128,(a0)
  1490.  move.w #44*256+2,8(a0)
  1491.  add.l #258*16,a0
  1492.  
  1493.  move.w #44*256+160,(a0)
  1494.  move.w #44*256+2,8(a0)
  1495.  add.l #258*16,a0
  1496.  
  1497.  move.w #44*256+192,(a0)
  1498.  move.w #44*256+2,8(a0)
  1499.  
  1500.  rts
  1501.  
  1502. DRAWOPTSCRN:
  1503.  
  1504.  bsr CLROPTSCRN
  1505.  
  1506. JUSTDRAWIT:
  1507.  
  1508.  move.l #font,a0
  1509.  move.l #MENUDATA,a1
  1510.  move.w OptScrn,d0
  1511.  move.l (a1,d0.w*8),a1
  1512.  
  1513.  move.l OPTSPRADDR,a3
  1514.  add.l #16,a3
  1515.  moveq #0,d2
  1516.  
  1517.  move.w #31,d0
  1518. linelop:
  1519.  move.w #39,d1
  1520.  move.l #SCRTOSPR,a4
  1521.  move.l a3,a2
  1522. charlop:
  1523.  move.b (a1)+,d2
  1524.  lea (a0,d2.w*8),a5
  1525.  move.b (a5)+,(a2)
  1526.  move.b (a5)+,16(a2)
  1527.  move.b (a5)+,32(a2)
  1528.  move.b (a5)+,48(a2)
  1529.  move.b (a5)+,64(a2)
  1530.  move.b (a5)+,80(a2)
  1531.  move.b (a5)+,96(a2)
  1532.  move.b (a5),112(a2)
  1533.  add.w (a4)+,a2
  1534.  dbra d1,charlop
  1535.  add.w #16*8,a3
  1536.  dbra d0,linelop
  1537.  
  1538.  rts
  1539.   
  1540. SCRTOSPR:
  1541.  dc.w 1,1,1,1,1,1,1,258*16-7
  1542.  dc.w 1,1,1,1,1,1,1,258*16-7
  1543.  dc.w 1,1,1,1,1,1,1,258*16-7
  1544.  dc.w 1,1,1,1,1,1,1,258*16-7
  1545.  dc.w 1,1,1,1,1,1,1,258*16-7
  1546.  dc.w 1,1,1,1,1,1,1,258*16-7
  1547.   
  1548. OPTNUM: dc.w 0
  1549. OptScrn: dc.w 0
  1550.  
  1551. MENUDATA:
  1552. ;0
  1553.  dc.l ONEPLAYERMENU_TXT
  1554.  dc.l ONEPLAYERMENU_OPTS
  1555. ;1
  1556.  dc.l INSTRUCTIONS_TXT
  1557.  dc.l INSTRUCTIONS_OPTS
  1558. ;2
  1559.  dc.l CREDITMENU_TXT
  1560.  dc.l CREDITMENU_OPTS
  1561. ;3
  1562.  dc.l ASKFORDISK_TXT
  1563.  dc.l ASKFORDISK_OPTS
  1564. ;4
  1565. ; dc.l ONEPLAYERMENU_TXT
  1566. ; dc.l ONEPLAYERMENU_OPTS
  1567.  dc.l MASTERPLAYERMENU_TXT
  1568.  dc.l MASTERPLAYERMENU_OPTS
  1569. ;5
  1570.  dc.l SLAVEPLAYERMENU_TXT
  1571.  dc.l SLAVEPLAYERMENU_OPTS
  1572. ;6
  1573.  dc.l CONTROL_TXT
  1574.  dc.l CONTROL_OPTS
  1575. ;7
  1576.  dc.l PROTMENU_TXT
  1577.  dc.l CONTROL_OPTS
  1578.  
  1579. ASKFORDISK_TXT:
  1580. ;      0123456789012345678901234567890123456789
  1581.  dc.b '                                        ' ;0
  1582.  dc.b '                                        ' ;1
  1583.  dc.b '                                        ' ;2
  1584.  dc.b '                                        ' ;3
  1585.  dc.b '                                        ' ;4
  1586.  dc.b '                                        ' ;5
  1587.  dc.b '                                        ' ;6
  1588.  dc.b '                                        ' ;7
  1589.  dc.b '                                        ' ;8
  1590.  dc.b '                                        ' ;9
  1591.  dc.b '                                        ' ;0
  1592.  dc.b '                                        ' ;1
  1593.  dc.b '                                        ' ;2
  1594.  dc.b '          INSERT LEVEL DISK             ' ;3
  1595.  dc.b '                                        ' ;4
  1596.  dc.b '          PRESS MOUSE BUTTON            ' ;5
  1597.  dc.b '          WHEN DISK ACTIVITY            ' ;6
  1598.  dc.b '               FINISHES                 ' ;7
  1599.  dc.b '                                        ' ;8
  1600.  dc.b '                                        ' ;9
  1601.  dc.b '                                        ' ;0
  1602.  dc.b '                                        ' ;1
  1603.  dc.b '                                        ' ;2
  1604.  dc.b '                                        ' ;3
  1605.  dc.b '                                        ' ;4
  1606.  dc.b '                                        ' ;5
  1607.  dc.b '                                        ' ;6
  1608.  dc.b '                                        ' ;7
  1609.  dc.b '                                        ' ;8
  1610.  dc.b '                                        ' ;9
  1611.  dc.b '                                        ' ;0
  1612.  dc.b '                                        ' ;1
  1613.  
  1614. ASKFORDISK_OPTS:
  1615.  dc.w -1
  1616.  
  1617.  
  1618. ONEPLAYERMENU_TXT:
  1619. ;      0123456789012345678901234567890123456789
  1620.  dc.b '                                        ' ;0
  1621.  dc.b '                                        ' ;1
  1622.  dc.b '                                        ' ;2
  1623.  dc.b '                                        ' ;3
  1624.  dc.b '                                        ' ;4
  1625.  dc.b '                                        ' ;5
  1626.  dc.b '                                        ' ;6
  1627.  dc.b '                                        ' ;7
  1628.  dc.b '                                        ' ;8
  1629.  dc.b '                                        ' ;9
  1630.  dc.b '                                        ' ;0
  1631. CURRENTLEVELLINE:
  1632.  dc.b '           LEVEL 1 : THE GATE           ' ;1 
  1633.  dc.b '                                        ' ;2
  1634.  dc.b '                1 PLAYER                ' ;3
  1635.  dc.b '                                        ' ;4
  1636.  dc.b '               PLAY  GAME               ' ;5
  1637.  dc.b '                                        ' ;6
  1638.  dc.b '            CONTROL  OPTIONS            ' ;7
  1639.  dc.b '                                        ' ;8
  1640.  dc.b '              GAME CREDITS              ' ;9
  1641.  dc.b '                                        ' ;0
  1642.  dc.b '                PASSWORD                ' ;1
  1643.  dc.b '                                        ' ;2
  1644. PASSWORDLINE:
  1645.  dc.b '                                        ' ;3
  1646.  dc.b '                                        ' ;4
  1647.  dc.b '                                        ' ;5
  1648.  dc.b '                                        ' ;6
  1649.  dc.b '                                        ' ;7
  1650.  dc.b '                                        ' ;8
  1651.  dc.b '                                        ' ;9
  1652.  dc.b '                                        ' ;0
  1653.  dc.b '                                        ' ;1
  1654.  
  1655. ONEPLAYERMENU_OPTS:
  1656.  dc.w 16,13,8,1
  1657.  dc.w 15,15,10,1
  1658.  dc.w 12,17,16,1
  1659.  dc.w 14,19,12,1
  1660.  dc.w 12,23,16,1
  1661.  dc.w -1
  1662.  
  1663.  
  1664. MASTERPLAYERMENU_TXT:
  1665. ;      0123456789012345678901234567890123456789
  1666.  dc.b '                                        ' ;0
  1667.  dc.b '                                        ' ;1
  1668.  dc.b '                                        ' ;2
  1669.  dc.b '                                        ' ;3
  1670.  dc.b '                                        ' ;4
  1671.  dc.b '                                        ' ;5
  1672.  dc.b '                                        ' ;6
  1673.  dc.b '                                        ' ;7
  1674.  dc.b '                                        ' ;8
  1675.  dc.b '                                        ' ;9
  1676.  dc.b '                                        ' ;0
  1677.  dc.b '                                        ' ;1
  1678.  dc.b '            2 PLAYER  MASTER            ' ;2
  1679.  dc.b '                                        ' ;3
  1680. CURRENTLEVELLINEM:
  1681.  dc.b '           LEVEL 1 : THE GATE           ' ;4 
  1682.  dc.b '                                        ' ;5
  1683.  dc.b '               PLAY  GAME               ' ;6
  1684.  dc.b '                                        ' ;7
  1685.  dc.b '            CONTROL  OPTIONS            ' ;8
  1686.  dc.b '                                        ' ;9
  1687.  dc.b '                                        ' ;0
  1688.  dc.b '                                        ' ;1
  1689.  dc.b '                                        ' ;2
  1690.  dc.b '                                        ' ;3
  1691.  dc.b '                                        ' ;4
  1692.  dc.b '                                        ' ;5
  1693.  dc.b '                                        ' ;6
  1694.  dc.b '                                        ' ;7
  1695.  dc.b '                                        ' ;8
  1696.  dc.b '                                        ' ;9
  1697.  dc.b '                                        ' ;0
  1698.  dc.b '                                        ' ;1
  1699.  
  1700. MASTERPLAYERMENU_OPTS:
  1701.  dc.w 12,12,16,1
  1702.  dc.w 6,14,28,1
  1703.  dc.w 15,16,10,1
  1704.  dc.w 12,18,16,1
  1705.  dc.w -1
  1706.  
  1707. SLAVEPLAYERMENU_TXT:
  1708. ;      0123456789012345678901234567890123456789
  1709.  dc.b '                                        ' ;0
  1710.  dc.b '                                        ' ;1
  1711.  dc.b '                                        ' ;2
  1712.  dc.b '                                        ' ;3
  1713.  dc.b '                                        ' ;4
  1714.  dc.b '                                        ' ;5
  1715.  dc.b '                                        ' ;6
  1716.  dc.b '                                        ' ;7
  1717.  dc.b '                                        ' ;8
  1718.  dc.b '                                        ' ;9
  1719.  dc.b '                                        ' ;9
  1720.  dc.b '                                        ' ;1
  1721.  dc.b '             2 PLAYER SLAVE             ' ;4
  1722.  dc.b '                                        ' ;3
  1723.  dc.b '               PLAY  GAME               ' ;2
  1724.  dc.b '                                        ' ;5
  1725.  dc.b '            CONTROL  OPTIONS            ' ;0
  1726.  dc.b '                                        ' ;1
  1727.  dc.b '                                        ' ;3
  1728.  dc.b '                                        ' ;7
  1729.  dc.b '                                        ' ;7
  1730.  dc.b '                                        ' ;3
  1731.  dc.b '                                        ' ;3
  1732.  dc.b '                                        ' ;3
  1733.  dc.b '                                        ' ;4
  1734.  dc.b '                                        ' ;5
  1735.  dc.b '                                        ' ;6
  1736.  dc.b '                                        ' ;7
  1737.  dc.b '                                        ' ;9
  1738.  dc.b '                                        ' ;9
  1739.  dc.b '                                        ' ;9
  1740.  dc.b '                                        ' ;9
  1741.  
  1742.  
  1743. PROTMENU_TXT:
  1744. ;      0123456789012345678901234567890123456789
  1745.  dc.b '                                        ' ;0
  1746.  dc.b '                                        ' ;1
  1747.  dc.b '                                        ' ;2
  1748.  dc.b '                                        ' ;3
  1749.  dc.b '                                        ' ;4
  1750.  dc.b '                                        ' ;5
  1751.  dc.b '                                        ' ;6
  1752.  dc.b '                                        ' ;7
  1753.  dc.b '                                        ' ;8
  1754.  dc.b '                                        ' ;9
  1755.  dc.b '                                        ' ;0
  1756.  dc.b '                                        ' ;1
  1757.  dc.b ' TYPE IN THREE DIGIT CODE FROM MANUAL : ' ;2
  1758.  dc.b '                                        ' ;3
  1759. PROTLINE:
  1760.  dc.b '        TABLE 00 ROW 00 COLUMN 00       ' ;4
  1761.  dc.b '                                        ' ;5
  1762.  dc.b '                                        ' ;6
  1763.  dc.b '                                        ' ;7
  1764.  dc.b '                                        ' ;8
  1765.  dc.b '                                        ' ;9
  1766.  dc.b '                                        ' ;0
  1767.  dc.b '                                        ' ;1
  1768.  dc.b '                                        ' ;2
  1769.  dc.b '                                        ' ;3
  1770.  dc.b '                                        ' ;4
  1771.  dc.b '                                        ' ;5
  1772.  dc.b '                                        ' ;6
  1773.  dc.b '                                        ' ;7
  1774.  dc.b '                                        ' ;9
  1775.  dc.b '                                        ' ;0
  1776.  dc.b '                                        ' ;1
  1777.  
  1778.  
  1779.  
  1780. SLAVEPLAYERMENU_OPTS:
  1781.  dc.w 12,12,16,1
  1782.  dc.w 15,14,10,1
  1783.  dc.w 12,16,16,1
  1784.  dc.w -1
  1785.  
  1786.  
  1787. PLAYER_OPTS:
  1788. ;      0123456789012345678901234567890123456789
  1789.  dc.b '                 1 PLAYER               '
  1790.  dc.b '             2  PLAYER MASTER           '
  1791.  dc.b '              2 PLAYER SLAVE            '
  1792.  
  1793. LEVEL_OPTS:
  1794. ;      0123456789012345678901234567890123456789
  1795.  dc.b '      LEVEL  1 :          THE GATE      '
  1796.  dc.b '      LEVEL  2 :       STORAGE BAY      '
  1797.  dc.b '      LEVEL  3 :     SEWER NETWORK      '
  1798.  dc.b '      LEVEL  4 :     THE COURTYARD      '
  1799.  dc.b '      LEVEL  5 :      SYSTEM PURGE      '
  1800.  dc.b '      LEVEL  6 :         THE MINES      '
  1801.  dc.b '      LEVEL  7 :       THE FURNACE      '
  1802.  dc.b '      LEVEL  8 :  TEST ARENA GAMMA      '
  1803.  dc.b '      LEVEL  9 :      SURFACE ZONE      '
  1804.  dc.b '      LEVEL 10 :     TRAINING AREA      '
  1805.  dc.b '      LEVEL 11 :       ADMIN BLOCK      '
  1806.  dc.b '      LEVEL 12 :           THE PIT      '
  1807.  dc.b '      LEVEL 13 :            STRATA      '
  1808.  dc.b '      LEVEL 14 :      REACTOR CORE      '
  1809.  dc.b '      LEVEL 15 :     COOLING TOWER      '
  1810.  dc.b '      LEVEL 16 :    COMMAND CENTRE      '
  1811.  
  1812. CONTROL_TXT:
  1813. ;      0123456789012345678901234567890123456789
  1814.  dc.b '                                        ' ;0
  1815.  dc.b '                                        ' ;1
  1816.  dc.b '                                        ' ;2
  1817.  dc.b '                                        ' ;3
  1818.  dc.b '            DEFINE  CONTROLS            ' ;4
  1819.  dc.b '                                        ' ;5
  1820. KEY_LINES:
  1821.  dc.b '     TURN LEFT                  LCK     ' ;6
  1822.  dc.b '     TURN RIGHT                 RCK     ' ;7
  1823.  dc.b '     FORWARDS                   UCK     ' ;8
  1824.  dc.b '     BACKWARDS                  DCK     ' ;9
  1825.  dc.b '     FIRE                       RAL     ' ;0
  1826.  dc.b '     OPERATE DOOR/LIFT/SWITCH   SPC     ' ;1
  1827.  dc.b '     RUN                        RSH     ' ;2
  1828.  dc.b '     FORCE SIDESTEP             RAM     ' ;3
  1829.  dc.b '     SIDESTEP LEFT               .      ' ;4
  1830.  dc.b '     SIDESTEP RIGHT              /      ' ;5
  1831.  dc.b '     DUCK                        D      ' ;6
  1832.  dc.b '     LOOK BEHIND                 L      ' ;7
  1833.  dc.b '                                        ' ;8
  1834.  dc.b '             OTHER CONTROLS             ' ;9
  1835.  dc.b '                                        ' ;0
  1836.  dc.b ' PULSE RIFLE      1  PAUSE            P ' ;1
  1837.  dc.b ' SHOTGUN          2  QUIT           ESC ' ;2
  1838.  dc.b ' PLASMA GUN       3  MOUSE CONTROL    M ' ;3
  1839.  dc.b ' GRENADE LAUNCHER 4  JOYSTICK CONTROL J ' ;4
  1840.  dc.b ' ROCKET LAUNCHER  5  KEYBOARD CONTROL K ' ;5
  1841.  dc.b '                                        ' ;6
  1842.  dc.b '               MAIN  MENU               ' ;7
  1843.  dc.b '                                        ' ;8
  1844.  dc.b '                                        ' ;9
  1845.  dc.b '                                        ' ;0
  1846.  dc.b '                                        ' ;1
  1847.  
  1848. CONTROL_OPTS:
  1849.  dc.w 5,6,30,1
  1850.  dc.w 5,7,30,1
  1851.  dc.w 5,8,30,1
  1852.  dc.w 5,9,30,1
  1853.  dc.w 5,10,30,1
  1854.  dc.w 5,11,30,1
  1855.  dc.w 5,12,30,1
  1856.  dc.w 5,13,30,1
  1857.  dc.w 5,14,30,1
  1858.  dc.w 5,15,30,1
  1859.  dc.w 5,16,30,1
  1860.  dc.w 5,17,30,1
  1861.  dc.w 15,27,10,1
  1862.  dc.w -1
  1863.  
  1864. PLOPT: dc.w 0
  1865.  
  1866. INSTRUCTIONS_TXT:
  1867. ;      0123456789012345678901234567890123456789
  1868.  dc.b 'Main controls:                          ' ;1
  1869.  dc.b '                                        ' ;2
  1870.  dc.b 'Curs Keys = Forward / Backward          ' ;3
  1871.  dc.b '            Turn left / right           ' ;4
  1872.  dc.b '          Right Alt = Fire              ' ;5
  1873.  dc.b '        Right Shift = Run               ' ;6
  1874.  dc.b '                  > = Slide Left        ' ;7
  1875.  dc.b '                  ? = Slide Right       ' ;8
  1876.  dc.b '              SPACE = Operate Door/Lift ' ;9
  1877.  dc.b '                  D = Duck              ' ;0
  1878.  dc.b '                  J = Joystick Control  ' ;1
  1879.  dc.b '                  K = Keyboard Control  ' ;2
  1880.  dc.b '                                        ' ;3
  1881.  dc.b '              1,2,3 = Select weapon     ' ;4
  1882.  dc.b '              ENTER = Toggle screen size' ;5
  1883.  dc.b '                ESC = Quit              ' ;6
  1884.  dc.b '                                        ' ;7
  1885.  dc.b '                                        ' ;8
  1886.  dc.b 'The one player game has no objective and' ;9
  1887.  dc.b 'the only way to finish is to die or quit' ;0
  1888.  dc.b '                                        ' ;1
  1889.  dc.b 'The two-player game is supposed to be a ' ;2
  1890.  dc.b 'fight to the death but will probably be ' ;3
  1891.  dc.b 'a fight-till-we-find-the-rocket-launcher' ;4
  1892.  dc.b 'then-blow-ourselves-up type game.       ' ;5
  1893.  dc.b '                                        ' ;6
  1894.  dc.b 'LOOK OUT FOR TELEPORTERS: They usually  ' ;7
  1895.  dc.b 'have glowing red walls and overhead     ' ;8
  1896.  dc.b 'lights. Useful for getting behind your  ' ;9
  1897.  dc.b ' opponent!                              ' ;0
  1898.  dc.b '  Just a taster of what is to come....  ' ;1
  1899.  dc.b '                                        ' ;0
  1900.  
  1901. INSTRUCTIONS_OPTS:
  1902.  dc.w 0,0,0,1
  1903.  dc.w -1
  1904.  
  1905. CREDITMENU_TXT:
  1906.  
  1907. ;      0123456789012345678901234567890123456789
  1908.  dc.b '    Programming, Game Code, Graphics    ' ;0
  1909.  dc.b '         Game Design and Manual         ' ;1
  1910.  dc.b '            Andrew Clitheroe            ' ;2
  1911.  dc.b '                                        ' ;3
  1912.  dc.b '             Alien Graphics             ' ;4
  1913.  dc.b '             Michael  Green             ' ;5
  1914.  dc.b '                                        ' ;6
  1915.  dc.b '           3D Object Designer           ' ;7
  1916.  dc.b '            Charles Blessing            ' ;8
  1917.  dc.b '                                        ' ;9
  1918.  dc.b '              Level Design              ' ;0
  1919.  dc.b 'Michael Green  Ben Chanter   Jackie Lang' ;1
  1920.  dc.b '     Kai Barrett Charles Blessing       ' ;2
  1921.  dc.b '                                        ' ;3
  1922.  dc.b '           Creative  Director           ' ;4
  1923.  dc.b '              Martyn Brown              ' ;5
  1924.  dc.b '                                        ' ;6
  1925.  dc.b '       Project Manager and Manual       ' ;7
  1926.  dc.b "            Martin O'Donnell            " ;8
  1927.  dc.b '                                        ' ;9
  1928.  dc.b '              Music + SFX               ' ;0
  1929.  dc.b '              Bjorn Lynne               ' ;1
  1930.  dc.b '                                        ' ;2
  1931.  dc.b '      Cover Illustration and Logo       ' ;3
  1932.  dc.b '             Kevin Jenkins              ' ;4
  1933.  dc.b '                                        ' ;5
  1934.  dc.b '      Packaging and Manual Design       ' ;6
  1935.  dc.b '               Paul Sharp               ' ;7
  1936.  dc.b '                                        ' ;8
  1937.  dc.b '             QA and Playtest            ' ;9
  1938.  dc.b '           Phil and The Wolves          ' ;0
  1939.  dc.b '                                        ' ;1
  1940.  
  1941.  dc.b '    Serial Link and 3D Object Editor:   ' ;4
  1942.  dc.b '                   by                   ' ;5
  1943.  dc.b '            Charles Blessing            ' ;6
  1944.  dc.b '                                        ' ;7
  1945.  dc.b '                Graphics:               ' ;8
  1946.  dc.b '                   by                   ' ;9
  1947.  dc.b '              Mike  Oakley              ' ;0
  1948.  dc.b '                                        ' ;1
  1949.  dc.b '             Title  Picture             ' ;2
  1950.  dc.b '                   by                   ' ;3
  1951.  dc.b '               Mike Green               ' ;4
  1952.  dc.b '                                        ' ;5
  1953.  dc.b ' Inspiration, incentive, moral support, ' ;6
  1954.  dc.b '     level design and plenty of tea     ' ;7
  1955.  dc.b '         generously supplied by         ' ;8
  1956.  dc.b '                                        ' ;9
  1957.  dc.b '              Jackie  Lang              ' ;0
  1958.  dc.b '                                        ' ;1
  1959.  dc.b '    Music for the last demo composed    ' ;2
  1960.  dc.b '       by the inexpressibly evil:       ' ;3
  1961.  dc.b '                                        ' ;8
  1962.  dc.b '            *BAD* BEN CHANTER           ' ;9
  1963.  dc.b '                                        ' ;0
  1964.  dc.b '    Sadly no room for music this time   ' ;1
  1965.  dc.b '                                        ' ;7
  1966.  dc.b '                                        ' ;7
  1967.  
  1968. CREDITMENU_OPTS:
  1969.  dc.w 0,0,1,1
  1970.  dc.w -1
  1971.  
  1972.  
  1973. ;      0123456789012345678901234567890123456789
  1974.  dc.b '                                        ' ;0
  1975.  dc.b '                                        ' ;1
  1976.  dc.b '                                        ' ;2
  1977.  dc.b '                                        ' ;3
  1978.  dc.b '                                        ' ;4
  1979.  dc.b '                                        ' ;5
  1980.  dc.b '                                        ' ;6
  1981.  dc.b '                                        ' ;7
  1982.  dc.b '                                        ' ;8
  1983.  dc.b '                                        ' ;9
  1984.  dc.b '                                        ' ;0
  1985.  dc.b '                                        ' ;1
  1986.  dc.b '                                        ' ;2
  1987.  dc.b '                                        ' ;3
  1988.  dc.b '                                        ' ;4
  1989.  dc.b '                                        ' ;5
  1990.  dc.b '                                        ' ;6
  1991.  dc.b '                                        ' ;7
  1992.  dc.b '                                        ' ;8
  1993.  dc.b '                                        ' ;9
  1994.  dc.b '                                        ' ;0
  1995.  dc.b '                                        ' ;1
  1996.  dc.b '                                        ' ;2
  1997.  dc.b '                                        ' ;3
  1998.  dc.b '                                        ' ;4
  1999.  dc.b '                                        ' ;5
  2000.  dc.b '                                        ' ;6
  2001.  dc.b '                                        ' ;7
  2002.  dc.b '                                        ' ;8
  2003.  dc.b '                                        ' ;9
  2004.  dc.b '                                        ' ;0
  2005.  dc.b '                                        ' ;1
  2006.  
  2007.  
  2008. ********************************************************
  2009.  
  2010. PUTIN32:
  2011.  move.w #31,d2
  2012. p32loop:
  2013.  moveq #0,d5
  2014.  move.l (a0)+,d3
  2015.  move.w d3,d4
  2016.  swap d3
  2017.  move.b d4,d5
  2018.  lsr.w #8,d4
  2019.  
  2020.  muls d0,d3
  2021.  muls d0,d4
  2022.  muls d0,d5
  2023.  lsr.l #8,d3
  2024.  lsr.l #8,d4
  2025.  lsr.l #8,d5
  2026.  move.w d3,d6
  2027.  swap d3
  2028.  move.w d6,d3
  2029.  move.w d4,d6
  2030.  swap d4
  2031.  move.w d6,d4
  2032.  move.w d5,d6
  2033.  swap d5
  2034.  move.w d6,d5
  2035.  and.w #%11110000,d3
  2036.  and.w #%11110000,d4
  2037.  and.w #%11110000,d5
  2038.  lsl.w #4,d3
  2039.  add.w d4,d3
  2040.  lsr.w #4,d5
  2041.  add.w d5,d3
  2042.  move.w d3,2(a1)
  2043.  swap d3
  2044.  swap d4
  2045.  swap d5
  2046.  and.w #%1111,d3
  2047.  and.w #%1111,d4
  2048.  and.w #%1111,d5
  2049.  lsl.w #8,d3
  2050.  lsl.w #4,d4
  2051.  add.w d4,d3
  2052.  add.w d5,d3
  2053.  move.w d3,2+(132*4)(a1)
  2054.  addq #4,a1
  2055.  dbra d2,p32loop
  2056.  
  2057.  
  2058.  rts
  2059.  
  2060. **************************************
  2061.  
  2062. FADEAMOUNT: dc.w 0
  2063. FADEVAL: dc.w 0
  2064.  
  2065. FADEUPTITLE:
  2066.  
  2067.  move.w FADEVAL,d0
  2068.  move.w FADEAMOUNT,d1
  2069. fadeuploop:
  2070.  
  2071.  move.l #TITLEPAL,a0
  2072.  move.l #TITLEPALCOP,a1
  2073.  
  2074. wvb:
  2075.  btst #5,$dff000+intreqrl
  2076.  beq.s wvb
  2077.  move.w #$20,$dff000+intreq 
  2078.  
  2079.  bsr PUTIN32
  2080.  add.w #4,a1
  2081.  bsr PUTIN32
  2082.  add.w #4,a1
  2083.  bsr PUTIN32
  2084.  add.w #4,a1
  2085.  bsr PUTIN32
  2086.  
  2087.  addq.w #4,d0
  2088.  dbra d1,fadeuploop
  2089.  
  2090.  subq #4,d0
  2091.  move.w d0,FADEVAL
  2092.  
  2093.  rts
  2094.  
  2095. CLEARTITLEPAL:
  2096.  PRSDP
  2097.  move.l #TITLEPALCOP,a0
  2098.  move.w #7,d1
  2099. clrpal:
  2100.  move.w #31,d0
  2101. clr32
  2102.  move.w #0,2(a0)
  2103.  addq #4,a0
  2104.  dbra d0,clr32
  2105.  addq #4,a0
  2106.  dbra d1,clrpal
  2107.  PRSDQ
  2108.  rts
  2109.  
  2110. FADEDOWNTITLE:
  2111.  
  2112.  move.w FADEVAL,d0
  2113.  move.w FADEAMOUNT,d1
  2114. fadedownloop:
  2115.  
  2116.  move.l #TITLEPAL,a0
  2117.  move.l #TITLEPALCOP,a1
  2118.  
  2119. .wvb:
  2120.  btst #5,$dff000+intreqrl
  2121.  beq.s .wvb
  2122.  move.w #$20,$dff000+intreq 
  2123.  
  2124.  bsr PUTIN32
  2125.  add.w #4,a1
  2126.  bsr PUTIN32
  2127.  add.w #4,a1
  2128.  bsr PUTIN32
  2129.  add.w #4,a1
  2130.  bsr PUTIN32
  2131.  
  2132.  subq.w #4,d0
  2133.  dbra d1,fadedownloop
  2134.  
  2135.  addq #4,d0
  2136.  move.w d0,FADEVAL
  2137.  
  2138.  rts
  2139.  
  2140. LOADTITLESCRN2:
  2141.  
  2142.  move.l #TITLESCRNNAME2,d1
  2143.  move.l #1005,d2
  2144.  move.l doslib,a6
  2145.  jsr -30(a6)
  2146.  move.l d0,handle
  2147.  move.l d0,d1
  2148.  move.l doslib,a6
  2149.  move.l TITLESCRNADDR,d2
  2150.  move.l #10240*7,d3
  2151.  jsr -42(a6)
  2152.  move.l doslib,a6
  2153.  move.l handle,d1
  2154.  jsr -36(a6)
  2155.  
  2156.  rts
  2157.  
  2158.  
  2159. GETTITLEMEM:
  2160.  move.l #2,d1
  2161.  move.l #10240*7,d0
  2162.  move.l 4.w,a6
  2163.  jsr -198(a6)
  2164.  move.l d0,TITLESCRNADDR
  2165.  
  2166.  move.l #$dff000-$2cdfe4,a4
  2167.  
  2168.  move.l #2,d1
  2169.  move.l #258*16*5,d0
  2170.  move.l 4.w,a6
  2171.  jsr -198(a6)
  2172.  move.l d0,OPTSPRADDR
  2173.  
  2174.  rts
  2175.  
  2176. PROTSETUP:
  2177.  incbin "ab3:includes/protsetupenc"
  2178.  
  2179. ; Need to: Decode protection calling
  2180. ; routine
  2181. ; use null values to call it and erase
  2182. ; it from memory
  2183. ; erase this routine and return.
  2184.  
  2185. ; include "ab3:source/protsetup"
  2186.  
  2187.  
  2188. RELEASETITLEMEM:
  2189.  move.l TITLESCRNADDR,d1
  2190.  move.l d1,a1
  2191.  move.l #10240*7,d0
  2192.  move.l 4.w,a6
  2193.  jsr -210(a6)
  2194.  
  2195.  move.l OPTSPRADDR,d1
  2196.  move.l d1,a1
  2197.  move.l #258*80,d0
  2198.  move.l 4.w,a6
  2199.  jsr -210(a6)
  2200.  rts
  2201.  
  2202.  
  2203. PROTCALLENC:
  2204.  incbin "ab3:source/protcallenc.bin
  2205.  
  2206. ; one pass, all instructions executed.
  2207. ; must call protection routine,store
  2208. ; value somewhere, call ask routine,
  2209. ; compare returned value, if correct
  2210. ; set up all values, then return.
  2211.  
  2212. ; include "ab3:source/protcallenc"
  2213.  
  2214. ENDPROT:
  2215.  
  2216. LOADTITLESCRN:
  2217.  
  2218.  move.l #TITLESCRNNAME,d1
  2219.  move.l #1005,d2
  2220.  move.l doslib,a6
  2221.  jsr -30(a6)
  2222.  move.l d0,handle
  2223.  move.l d0,d1
  2224.  move.l doslib,a6
  2225.  move.l TITLESCRNADDR,d2
  2226.  move.l #10240*7,d3
  2227.  jsr -42(a6)
  2228.  move.l doslib,a6
  2229.  move.l handle,d1
  2230.  jsr -36(a6)
  2231.  
  2232.  rts
  2233.  
  2234. RVAL2: dc.w 0
  2235.  
  2236. SETUPTITLESCRN:
  2237.  
  2238.  PRSDR
  2239.  move.l #OPTCOP,a0
  2240.  move.l #rain,a1
  2241.  move.w #255,d0
  2242. putinrain:
  2243.  move.w (a1)+,d1
  2244.  move.w d1,6(a0)
  2245.  move.w d1,6+4(a0)
  2246.  move.w d1,6+8(a0)
  2247.  move.w d1,6+12(a0)
  2248.  add.w #4*14,a0
  2249.  
  2250.  dbra d0,putinrain
  2251.  
  2252. ; Put addr into copper.
  2253.  move.l OPTSPRADDR,d0
  2254.  move.w d0,tsp0l
  2255.  swap d0
  2256.  move.w d0,tsp0h
  2257.  swap d0
  2258.  add.l #258*16,d0
  2259.  move.w d0,tsp1l
  2260.  swap d0
  2261.  move.w d0,tsp1h
  2262.  swap d0
  2263.  add.l #258*16,d0
  2264.  move.w d0,tsp2l
  2265.  swap d0
  2266.  move.w d0,tsp2h
  2267.  swap d0
  2268.  add.l #258*16,d0
  2269.  move.w d0,tsp3l
  2270.  swap d0
  2271.  move.w d0,tsp3h
  2272.  swap d0
  2273.  add.l #258*16,d0
  2274.  move.w d0,tsp4l
  2275.  swap d0
  2276.  move.w d0,tsp4h
  2277.  
  2278.  move.l #nullspr,d0
  2279.  move.w d0,tsp5l
  2280.  move.w d0,tsp6l
  2281.  move.w d0,tsp7l
  2282.  swap d0
  2283.  move.w d0,tsp5h
  2284.  move.w d0,tsp6h
  2285.  move.w d0,tsp7h 
  2286.  
  2287.  move.l TITLESCRNADDR,d0
  2288.  move.w d0,ts1l
  2289.  swap d0
  2290.  move.w d0,ts1h
  2291.  swap d0
  2292.  add.l #10240,d0
  2293.  move.w d0,ts2l
  2294.  swap d0
  2295.  move.w d0,ts2h
  2296.  swap d0
  2297.  add.l #10240,d0
  2298.  move.w d0,ts3l
  2299.  swap d0
  2300.  move.w d0,ts3h
  2301.  swap d0
  2302.  add.l #10240,d0
  2303.  move.w d0,ts4l
  2304.  swap d0
  2305.  move.w d0,ts4h
  2306.  swap d0
  2307.  add.l #10240,d0
  2308.  move.w d0,ts5l
  2309.  swap d0
  2310.  move.w d0,ts5h
  2311.  swap d0
  2312.  add.l #10240,d0
  2313.  move.w d0,ts6l
  2314.  swap d0
  2315.  move.w d0,ts6h
  2316.  swap d0
  2317.  add.l #10240,d0
  2318.  move.w d0,ts7l
  2319.  swap d0
  2320.  move.w d0,ts7h
  2321.  rts 
  2322.  
  2323. RVAL1: dc.w 0
  2324.  
  2325. DummyAdds:
  2326.  dc.l dummy-78935450
  2327.  dc.l dummy-78935450
  2328.  dc.l dummy-78935450
  2329.  dc.l dummy-78935450
  2330.  dc.l dummy-78935450
  2331.  dc.l dummy-78935450
  2332.  dc.l dummy-78935450
  2333.  dc.l dummy-78935450
  2334.  dc.l dummy-78935450
  2335.  dc.l dummy-78935450
  2336.  
  2337. dummycall
  2338.  dc.w $4e75-123
  2339.  
  2340. protspace: ds.l 200
  2341.  
  2342.  include "ab3:source/LEVEL_BLURB"
  2343.  
  2344. font:
  2345.  incbin "OptFont"
  2346.  
  2347. rain: incbin "optcop"
  2348.